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UTILITIES 


Byr Walter N. Colquitt - Sigma Corporation 

INTRODUCTION 

This document is in several sections. Each section describes a 
set of related Adage utility programs. There are, in general, 
four parts to each section with the last part having two sub- 
parts. The first three parts are a general description of this 
software group, followed by instructions on how to use programs 
with the third part being a programmers description of the theory 
of operation. The final part is a printed listing with the first 
a printed example of the program in use and the second is a list- 
ing of the program. 



DISK TO DISK TRANSFERS 

The Univac side of disk-to-disk operations in the form of Adage 
supplied AGS CRD and AGSELT leave a great deal to be desired from 
the viewpoints of efficiency, stability, size, ease of use, ease 
of understanding and generality. 

Two new Univac computer programs, UTA and ATU do much towards 
meeting these criteria. UTA transfers lines of data from the 
Univac computer to the Adage computer. ATU transfers lines of 
data from the Adage to tihe Univac. 

The absolute (executable) versions of these computer codes are 
found in file EX42-N00002*UR. UTA is invoked as a processor and 
ATU is invoked as an executable (XQT) program. 

Usage 

In both cases after the program is iiivoked on the Univac side, 
the escape (ESC) key is hit and the Adage returns to the AMRMX 
monitor in the ordinary Adage mode. At this time, either AGSCRD 
or AGSELT is invoked on the Adage (for UTA and ATU respectively) . 

Use of the Univac to Adage (UTA) Routine 

The rewrite of the Univac routine AGSCRD was carefully designed 
to overcome major shortcomings. It is no longer necessary to 
modify the element being sent, nor is it necessary to type more 
than one Exec 8 command card. In addition, the new version will 
transmit images up to a length of 132 characters. Core require- 
ments are approximately 25% of the earlier version. 

To use the routine type : 

@ UR. UTA Your-File . Your-Element 

When the message "USER DATA MESSAGE PENDING" begins to flash on 
the lower left of tihe screen, press the escape (ESC) key. This 
causes the AGT to cease functioning as a terminal and returns 
control to the AMOS 2 monitor. 


Type "AGSCRD . " The Adage will then request the pack/volume (ppvv) 
where to place the element as it comes across. When the trans- 
fer is complete and the Adage disk is closed out, the screen will 
go blank. At this time, type SYMll to return to demand mode. An 
example of the use of UTA is shown in figure 2. Note that by 
default, the element being sent will be displayed on the Adage 
screen. Transfer time may be reduced by 60% by suppressing the 
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print. Print suppression is accomplished by the "N" option 
invoked as follows: j 

@UR.UTA,N Your-File . Your Element 

To transmit from the Univac to the Adage, an element which is 
more than 72 columns wide, then PTA should be invoked with the 
"T" (two pass) option, i.e. , 

• @UR. UTA, T ur-file.ur-elem. 

For an example, see figure 1-B. 


Use of the Adage to Univac (ATU) Routine 

The new Adage to Univac (ATU) routine has the capability of writ- 
ing the image received from the Adage directly into an Univac 
program file as an element. Hence, no @ELT calls are necessary, 
and as tabbing is completed, no calls to the Editor are required. 

To use the routine, type: 

@XQT UR. ATU 


When the message "USER DATA MESSAGE PENDING" begins to flash in 
the lower left of the screen, press the escape (ESC) key. This 
causes the AGT to return control to the AMOS monitor. 


Type "AG SELT. " The user should then answer the prompting questions 
and Adage file will be transferred over to the 1110 to become an 
Univac element of a program file. 


For an example, see figure 1-A. 
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DISK-DISK COMMUNICATIONS 


@XQT UR.ATU 
ESC 

AGSELT 

ENTER DESIRED 1100 FILE NAME ( 

C/R FOR TPS $) - - 

FILE NAME 

** ENTER; C/R TO CONTINUE ANYTHING ELSE 
TO EXIT.. .ENTER DESIRED PACK/VOLUME 
NO ( PW) . . . 


UNIVAC 

DISK 


A 


110 

ENTER STARTING FILE NUMBER. 

6 

ENTER ENDING FILE NUMBER... 

14 - -;;p 

** ENTER C/R TO CONTINUE ANYTHING ELSE 
TO EXIT... ENTER DESIRED PACK/VOLUME 
NO ( PW)... 

A 

Screen Goes Blank 
SYMll 

FIGURE 1-A 


ATU 




UTA 


ADAGE 

DISK 


@ UR. UTA urfile.elem 
ESC 

AGS CRD 

ENTER DESIRED PACK/VOL NO ( 
110 

PROGRAM WILL APPEAR HERE 
Screen Goes Blank 
SYMll 


FIGURE 1-B 


FIGURE 1 


DISK-DISK COMMUNICATIONS. 


PPV) 



\ 

ij 


EXAMPLE OF ATU & UTA - e: 

. ; TTY . . ■ ' I;;.,.-.'. . 

" . -3 ■ * | ’« ^ ' 

'.AGS 102 . 

ENTER USER ID/ PAS SWORD: 

'?;* DESTROY USERID/ PASSWORD ENTRY 
- *UN I VAC 1 1-00 OPERATING SYSTEM VER. 31.244.2113 CHS I > * 
- @ RUN ¥C l 1 0>-3 039 D- 1038- C * EX 4 2 - N 00032 
■•DATE: 062576 TIME: 145543 

, . @EDi I UTA- EXAMPLE 
. CASE UPPER ASSUMED 

•• ED 1 4. 02-06/25- 1 4 : 56 - C j 0) \ : 

INPUT, . 

1 1 : : 

.'FIRST LINE OF UN I VAC-TO-ADAGE EXAMPLE 

'21 : U 

LINE TWO V 

, 3 1 : 

■ -LAST LINE- ' . ■ - " 

41: 

. ; ©EOF | ' ' . • 

LINES : 3 FIELDATA V..;- . ^ 

@UR. UTAj N TPF$ . UTA-SXAMPLE 

-V, " ' SESCAPET FROM UN I VAC.' 1100 DEMAND OPERATION* 

AGS CRD , : 

' ** START ON LINE CARD 'TO DISK PROGRAM ** 

ENTER DESIRED PACK/ VOL NO. CPVV) ... 


**OUTPUT ' KR2 * IN VOLUME 110 
FILE: NO. 

i SYMll 


*SYM1 1 (VERSION 1 j REV d/ SEPT 16, 1975)* 

* START OF UNIVAC 1130 DEMAND OPERATIONS 

✓ 9 


FIGURE 2 EXAf’IPLES OF ATU AND UTA. 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


8XQT UH.ATU 

♦ESCAPE FROM UN I VAC 1100 DEMAND OPERATION* 

AG SELT 

♦♦START ON LINE ATSXT TO ELEMENT FILE PROGRAM** 

ENTER -DESIRED 1100 FILE NAME CG/R FOR TPFS) ... 
TPF$ 

♦ ♦ENTER C/R TO CONTINUE* ANYTHING ELSE TO EXIT ... 

ENTER DESIRED PACK/ VOLUME NO. <?VV) ... 

1 10 

ENTER STARTING FILE NUMBER ... 

16 , 

ENTER ENDING FILE NUMBER ... 

16 

♦♦ENTER C/R TO CONTINUE* ANYTHING ELSE TO EXIT ... 
DONE 

SYM 11 

♦ SYM11 (VERSION 1* REV D* SEPT 16* 1975).* 

♦START OF UN I VAC 1100 DEMAND OPERATION*' 


SPRT * T v 

FURFUR 0026-06/25-15:01 

SX42,-N00032*TPFS 

ELT UTA-EXAMPLEC.0) " 

SYM UTA-SXAMPLC 3 ) 

©FIN 

RUN I D : WCllS ACCT: 30 39D- I033-C 


P RO J SC T : 3X4 2 -NO 3 0 3 2 


TIME: 


TOTAL: 00:0.3:08.672 
CAU: 30:03:00.307 
CC/ER: 00:00:07.948 


pa — 


6876 


START : 14:55:40 JUN 25*1976 

♦TERMINAL INACTIVE* 

©©TERM V : .- 


CHARGE : -30:09: 17.345 
I/O: 0S:0S:00. 717 

% ' AIT: 'a -J : 0 

- ES -- 1033 
FIN: 15:01:58 JUN 


25 * 1 37 


♦ END 0-F UN I VAC 1190 DEMAND OPERATION* 


FIGURE 2 (CONTINUED) 


Oi CO 



Theory of Operation 

The program was written by duplicating the logic in the old 
AGS CRD and AGSELT but expanding the I/O and executive interface 
to yield the effects desired. Much extraneous code was dropped. 
In general, to transmit data from the Univac to the Adage, inf or 
mation is received by a routine that blocks the data into 54 
line pages. The page, with appropriate control words attached, 
is passed to IOG$ for transmittal to the Univac as a single data 
block. Data transmission in the opposite direction is exactly 
the same except the Univac side does deblocking rather than 
blocking. Note that AGSCRD and AGSELT on the Adage side were 
not modified at all and that transmission protocol is identical 
to the way it was in the past. 
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UTA 
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THIS Ift fl COMMUNICATION PROGRAM TD SEND 

ELEMENTS OF EXEC 8 PROGRAM FILES OVER TO ADAGE 

VIA IDG*. IT IS DESIGNED TO BE XQT'B AS A PROCESSOR 

WITH THE FILE AND ELEMENT TO BE SENT AS SPEC1 OF THE 

CALLING CARD. ONLY ONE ELEMENT IS TO BE TRANSMITTED 

FOR EACH TIME IT IS ENVOKED. THE ADAGE NAME IS THE FIRST 

10 CHARACTERS OF THE ELEMENT NAME. 


. AUTHOR - WALTER N COLQUITT 
! DATE - FALL 1975 
! CONTRACTOR - SIGMA CORP. 

. LOCATION - NASA .JOHNSON SPACE CENTER--HOUSTON * TEXAS 
. EXAMPLE 

. TO SEND ELEMENT ■ijTA.-SVM" OF FILE "DBINIT2-’ 

. OVER TO PPVV 333 OF THE ADAGE 

’ 5 UR . UTA DB I N I T£ . UTA--SYM 

• ESC 
AGS CRD 

. .■ 333 • . 

. SYM11 

MESSAGE FORMATS 

NOTE ARE REALLY BITS 13 AND 17 NOT 15 AND 14 AS STATED HERE 


<1> START MESSAGE 
35 


HEADER 


u 

• a 

0 

• i 

0 


29 1514 0 

TYPE ! WORD LENGTH 

TITLE1 
TITLE2 

REV AND *VERS , DATE 


. TYPE = 0 


C£> DATA MESSAGE 


55 


pa 


1514 0 


. HERDER 


0 . TYPE . WORD LENGTH 


• 9 • • ■•■•••••••••• ■ •- • • • • • • n % • » n « * 

0 . ' 


CARD IMAGE 


m • ' 0 i I** t‘ m m m : m m m (' • U 0 ■ * i i • 0 • 

! TYPE “ 1 

<3> EOF.* EOF AND STOP MESSAGE 


35 


£9 

1514 


0 

HERDER ! 

0 

. TYPE 

' • 

WORD 

LENGTH 


0 


• a a 

a a ■ 

*7 

m • • 1* a 

TYPE * £ 

FOP 

EDF 




TYPE = 3 

FOR 

EOF AND STOP 


• . 


<4> ERROR 

STOP 

MESSAGE 




35 

£9 

1514 


0 

HEADER . 

0 

. TYPE 

a • 

WORD 

LENGTH 


0 


ao 


0 



PF 

. FORM 

1 £ ? G ? 1 3 

FLAGS 

+ 

0 

MAXSEND 

EQU 

12 

IMAGELENGTH 

EQU 

HERDER 

+ 

4 


+ 

OD 


+ 

0 

TAIL 

+■ 

034141 00000 

ENDEOF 

+ 

3?£ 


+ 

1 +■••■' 3 0- 1 

END 

+ 

0777770 0 0 0 0 

INBLIF 

RES 

c 

IOGBUF 

+ 

1 ? 0 


RES 

<55*<MAX$END*6> 

IMG 

RES 

IMAGELENGTH 

blank: 1 

+ 


MSGl 

“ERROR 

WHILE READING UNI'*/! 

MSG£ | 

-FORMAT 

ERROR IN MESSAGE ! 

MSG 3 

‘“ERROR 

MADE ON ADAGE SIDE 

*a> 

RXRS 

■ i 



m i 

. INITIALIZATION SECTION 

bO 

• 

• 



LMJ 

XI 1 ?EEGIN 


ER ! 

EXIT* 


ER 

ERR* 


” i 

0 


LA?U j 

A3 ? 1 


LA 

AO? PRRTBL 


TOP ? U , 

AO? 1 ♦.•••• <‘“Z“ — “T''> 


| 

>«><» 

A3 ; 


SA 

A3? FLAGS 


LMJ [ 

XI 1 ? INITG 


LA 

AO? BLANK 


LR 

R£? •:> 07777::- 


MLU 

AO? PARTBL+4 


LA 

AO? PARTBL+3 


D& 

AO? INBUF 


LMJ 

XI 1 ? CNVSTA 


+ 

2? INBUF 


+■ 

0? HEADER+1 


LA? $6 

AO ? PARTBL+ 1 £ 


LSSL 

AO? 4 


RR? S4 

A0?PARTBL+1£ 


LSSL:""' 

AO? 5 


AR? SS 

AO ?iPARTBL+ 1 £ 


OR 

AO? TAIL 


SA 

Al? HEADER +3 


LMJ 

X IT ? SENDS 


• + 

4? HEADER 


22 


•••‘4+1 


□UT 
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THIS SECTION IS MAIN LOOP OUTER I 
SET fi LINE? COUNT NON-BLANK WORDS ? 


ER 



NX TP AG 

LX? U 

XI 0? IOGBUF+1 


LA? U 

A6 ? 53 

MORE 

LMJ 

XI 1? SIRE AD 


J 

ERR 


J 

EOF 


+■ 

IMG 


+ 

BLANK 

l"l 


LA 

IJ 

AS? BLANK 


LR?U 

Rl? IMAGELENGTH 


LX I ? XU 

AO? -1 


LXM? U 

AO? IMG 


SNE 

A£? IMAGELENGTH— 


LR? XU 

Rl ? -1 


SR 

Rl ? AO 


LAsvU 

AO? 1 ? AO 


TZ 

FLAGS 


SLJ 

RGTHLF 


TG ? U 

AO? MAXSEND 


LA ? U 

AO? MAXSEND 


SA ? H 1 

AO? $+3 


SX?H£ 

XI 0? $+3 


LMJ 

XI 1 ? CNV8TA 

OUTACW 

+ 

0? I MG 


+• 

0? 0 


AX? HI 

X10?$-l 


JGD 

A6? MORE 


. ACTUALLY SEND THE PAGE 

SENDPG 

LA 

AO? END 


SA 

AO? ? XI 0 


ANX ? U 

XI 0? I06BUF-1 


SX? HI 

X 1 0 ? $+3 


SX? He* 

XI 0? IOGBUF 


LMJ 

X 1 1 ? SENDG 


+ 

0? IOGBUF 


J 

NXTPAG 


105 $ 


FOR EACH PAGE <54 LINES.'? 

ON VERT IT? AND PLACE IN BUFF 
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RGTHLF 


D02HLF 


ALLBLKS 


. THIS IS THE HANDLING OF THE 2ND PASS 
. WHERE THE RIGHT HALF? WITH TWO WRDS OF BLANK 
.1 IS TRASMITTED 


♦ ! 

0 i 

J 

♦RGTHLF 

+ 

0 

TNZ 

FLAGS 

J 

EOF+S 

LA?U 

AO? D02HLF 

SA?H£ 

At}? PGTHLF+i 

LA ? U 

! AO? FCTI 

LM.J 

xiji? Sufic 

LA 

AO? PARTEL+1 1 

SA 

AO? FCTI +5 

Lft.-U 

1 AO? FCTI 

LNJ 

xii?sbfio 

+•! 

0 

LA ? U 

AO? FCTI 

LMJ 

XI 1 ? SDFI 

♦ 

0 

+■ 

0 , 

J 

SENDPG 

ANA ? U 

AO? MAXSEND 

JN 

AO? ALLBLKS 

JZ 

AO? ALLELKS 

AA?U 

AO? 2 

LA?U 

Al? IMG 

SA • 

AS ? MAXSEND-S ? A 1 

SA 

AS? MAXSEND— 1 ? Al 

AU?U 

Al ? MAXSEND— S 

SA 

AS? OUT AC W 

J 

♦“RGTHLF 

LA? U 

AO? 1 

LA? U 

Al ? BLANK 

SA 

Al ? OUTACW 

J . . 

♦RGTHLF 



. CLOSE OUT SECTION 
ERR P*R I NT CPF £ ,« 3 » MSS 1 > 

EOF SLJ * 

SI1J RGTHLF+E 

LR ROjEND 

. 'SEND LAST PRRTIfiL PRSE 
SR AO^XIO 

RNXsU XI 0* IDSBUF-1 

SX X10-.R0 

TNE-.U ROjE 

J SNDEOF 

SX.-H1 XI 0.i $+3 

SXi» HE XI 0? IOSBUF 

LMJ XI IV SENDS 

+• 0? IOSBUF 

' SEND CLOSE OUT MESSAGE 
SNDEOF LMJ XI 1 j. SENDS 

+ £> ENDEOF 

. CHECK TO SEE IF ANY ERROR RETURNS FROM RDRSE 
LMJ X 1 J. .« RECVS 

+ INBUF 

LA? HI R1>$~1 

LR AO? CPF 2-.7-.MSSE> 

TE » U - Rl?l : - 

ER PRINT* 

LR HI -.INBUF 

LSSL ... R1 1.6 

LR AO.-. CPF £ ? 6 j MSG3> 

TP R1 ' . 

ER, PRINT* 

. CLOSE I OS* 

lmLi i xi 1 -. closes 

. CLOSE IF PROCESSOR RND SO HOME 
LMJ XI 1 > DONE 

ER EXIT* 

0 

ER EXIT* 

END SO 
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THIS IS A COMPLETE REWRITE OF AGSELT 

THE PURPOSE OF THE REWRITE IS TO AVOID BOTH ELT AMD 

AFTER EMISSION OF AN ELEMENT, FROM ADAGE TO UN I VAC 

•iONTR ACTOR: SIGMA CDRP. 

AUTHOR: WALTER N COLQUITT 
DATE: EARLY WINTER 1975 

TO EXECUTE THIS PROGRAM 
JUST TYPE 9XQT FN.ATU 

THEN HIT ESC ON THE ADAGE AND DO REGULAR THING WITH 
ON THE ADAGE SIDE 


MESSAGE FORMAT FROM ADAGE 

NOTE THAT THESE ARE DIVIDED ON BIT 18 AND 17 NOT 15* 14 SO f 
<1> FILE NAME MESSAGE 


35 89 

0 . 

. 0 . 

. o ’ ! * 


1514 0 

TYPE . WORD LENGTH* 

FILE* NAME* V '* ’ ’’ ***** 

FILE NAMe’8 


TYPE = 07 
C8> TITLE MESSAGE 
35 89 

0 . 


»• a 


1514 0 

» * • ■ • ■ a a a a ■ a a a a a a a a an 

TYPE . WORD LENGTH 

TITLE* 1 

. 0 . TITLE 8* 




0 . TYPE * VER* REV 


DATE 








TYPE * 0 


14 




ED CALLS 

AGSELT 

::OMPATABLE 



T 

V;, 


C3> DATA MESSAGE 


35 

£9 


1514 


0 


0 


TYPE 

. WORD 

LENGTH 


t r 

0 

• 

• 





. ■ 
• 

• 

• 

• 

• 

• 

■ 

TEXT 

IMAGE 




o 

• I I • 


7 . 00 . . 

m m a 

0 

TYPE = 01 







<4> EOF* EOF AND STOP 

MESSAGE 




35 


C7 


1514 


0 


o: 

• ■ i 

m 

TYPE 

. WORD 

LENGTH 

* 

: i . 

0 

m f (' m 



• . » • 

•J 

1 • 

TYPE = 02 

FOR 

EOF 





TYPE = 03 

FOR 

EOF AND 

STOP 




•:'5> ERROR 

STOP 

MESSAGE 




35 


29 


1514 

! . 

0 

. » 
• 

• m mm 

0 

• ; 

TYPE 

. WORD 

LENGTH 

■ • ■ 

. • 

0 

• • • 

. 00 . 



■ • : ■ 

0 . 
• • « 



. MESSAGE FORMAT TO ADAGE 

* <t> ACK WORD 

’ 35 £9 0 

• • « ■ *ii mm m m m m m m m m m • m m m m mm mm m mm 

.* . 0 . 00 . . . i . . . . . ..... 0 . 


. <£> NACK WORD 


• 

35 

£9 

0 


0 

v I I § __ ■ m m 


PF 

FORM 

1 £ » 6 ? 1 8 


IMAGES I 

ZE 

* 

EQU 

oo 

cc 

S(l) 

• 

AXRS 



C4005* 

PROC 

0 



LAi.ll 

A1 :»9 

■ •••■■ 


EX 

FETCH j A 1 

0 V ' TO SPACE 


JMZ 

A0i.*+£ 



LAi.ll ! 

AO? 040 



EX 1 

STORE? A 1 



JGD 

Al?S-4 



END 



ATU 

LMJ 

X 1 1 !» I N I T6 

. INITIALIZE TOGS 5 


LMJ 

XllVSENDG 

V;. 



1 5 RBUF 

:'v" r/, 

RCVNRM 

LMJ 

Xlii.REC.VG 

. RECEIVE FILE NAME 


+• 

CNTRL 



LA 

AO? CNTRL 

. FETCH HEADER 


.. TE 

AO? NAM ADR 



j 

ERR1 



16 




SBRKWD 



C4005 


LR* U 

R 1 3*1 

LMJ i 

XI 1 * CNVRT8 

+ 1. 

2jCNTRL+1 

+ i ; ! 

RSG+2 

Oli U.-'J - 

RO* RSG+2 

DS • 

R0*USE+2 

LR j 1 

ro*<4*rsg> 

E* 

CSFS 

JN 

RO* ERRRSG 

LR 

ft 0 <• <5 f USE> 

ER 

CSF* 

M 

RO > ERRUSE 

LMJ 

XI 1 * SEND G 

+ 

1 9 ftCKWD 

LMJ 

X 11 9 RECVG 

+ : 

CMTRL 

LR 

RO* CMTRL 

TE 

RO*CTLHDR 

J 

EDFSTP 

C4005 


LMJ i 

X 1 1 j CNVRT3 

+ 

2* CNTRL+1 

t : ■ )■ 

PFIPKT+2 

L R * U 

R:3 9 11 

LR* SI 

RO* PFIPKT+2 

TE*U 

ftp;. 005 

J ‘ ' ! 

S+5 

dl : ! 

RO* PFIPKT+2 

LDSC 

RO* 6 

DS 

RO* PFIPKT+2 

JGD > 

R3 * $-6 

LR 

R1*DBTE 

■\-7 

RO 

LSSL 

R1 >21 

LDSL 

R 0 9 6 

SR*S6 

RO* PFIPKT+1 1 

sz 

RO 

LDSL 

RO* 4 

SB * S4 

RO* PFIPKT+1 1 

SZ 


LDSL 

ROj 5 

SR *35 

RO* PFIPKT+1 1 

ER 

TDRTE* 

Slfi.Nl 

RO* PFIPKT+1 1 

LMJ 

XI 1 * STRRT 


PFIPKT+2 

+ 

BLRMK 


0 

SZT' 

R13 


■gSSS^. 



RCVRCD 

LMJ 

Xll sRECVG 

• 

RECEIVE 1 RECORD DRTfl 


* 

RBUF 

• 



LA»H1 

, ROjRBUF 


FETCH MESSAGE HERDER 

* 

TEs U 

ROj 1 j 

• 

■ ■■ • 


J 

NEXT | 

• 

IF NOT DRTR MESSAGE 


LR*H£ 

A4-.RBUF 

• 

FETCH UORD COUNT 


ANA j U 

A4j 1 

■ • 



TNE » U 

A4> 1 




J 

RC'v'RCD 




LRrU 

A5j RBUF+1 



FTLINE 

LMJ 

XI 1* DEV IDE 

• 

FETCH 1 LINE DATA 


+• 

0) ■ 

• 



LA 

AO* BLANK 




LRi* U 

R1j.R0 




LX I <» U 

R1 j 0 




LR» U 

RfiyPBUF 




LX I > LI 

A£ !• 1 




LR » U 

Rlii. IMAGES I ZE 




BT 

R£ f > ♦Rl 




LR 

A0jFTLINE+1 




SZ , | 

R13 


CLEAR TAB FLAG 


SR 

R'a*'*+a 

• 



LMJ 

XI 1 » CNVRT8 


AMOS TO FIELDATA 


+ 

0 




+ 

PBUF 




m 

R4VSR4 




LMJ 

XI 1 y PUTCRD 


/ .. . ' " 


+ 

PBUF 




+- : ' 

0 i 




BL 

R4 ? SR4 




TNE ? U 

R4> 1 




J 

RCVRCD 




J 

FTLINE 



NEXT 

LR 

AO » RBUF 




TE 

ROs EOFHBR 




J 

EOFSTP 




LMJ 

XI 1 ? FINIS 




+ 





J 

SDAKWD 




18 



EOFSTP 



TE 

RCNSTPHBR 


J 

ERR£ 


LMJ 

X 1 1 ,«• CLOSES 


LB 

BO? <3? FREB> 


ER 

CSFS 


ER 

EXIT'S 

ERP1 

TNE 

i BCNERRHDG 


J 

i B6SERR 

ERRS 

P'SRINT 

CPF 2-.4-.MSGl> 

SDNBK 

LMJ 

XU i SENDS 


4* 

1 f NRKWB 

CLOUT 

LMJ 

XU t CLOSES 

1 

ER 

ERRS 

RGSERR 

PSRINT 

CPF £» 3> MSG4> 


J 

CLOUT 

ERRRSS 

P$RINT 

CPF 2»a».MSG2> 


J 

SDNBK 

ERRUSE 

PSRINT 

CPF £» 3-.MSS3) 


J 

SDNBK 

$C0> . 

• 


MSS1 

-’♦MESSRSE FOPMRT ERROR'’ 

MSGS, 

•' ♦CBN '’ -■ 

T BSSj. B' - ' 

MSGS 

••’fCBN-”-' 

T USE 3WRITE" 

MSG4 

'>BDRGE 

ERROR'" 

USE 

+ 

•"JIJSE $•" 



' WRITE,-. •' 


RES 

£ 

FPEB 


-’;PFREE.»B -S WRITE 

BSS 


■' 9BSS f R" 


+ 

*’X 

: : • •• i 

RES 

o 

■' :C--: 

CNTRL 

RES 

3 

DRTE 

+ 

0 



SR4 

blank: 

CTLHDR 

ElfRHDG 

NRMHDR 

EOFHDR 

STPHDR 

PBIJF 

ACKUD 

NAKWD 

FETCH 


STORE 


RBUF 


+ 

OD 


+ 

005 05 05 05 05 05 


+ 

0 05 05 05 05 05 05 


+ 

0? 4 


+ 

077777 00002 


+ 

7? 3 



£? £ 


+ 

3? £ 


RES 

£7 


■4j 

0 


— 

0 


LRj.SE 

AO? CNTRL+1 

» 

LA* S3 

AO? CNTRL+1 

• 

LA? S4 

AO? CNTRL+1 

i 

f 

LA? S5 

Rp? CNTRL+1 

. '■] 

• 

LA? S6 

AO? CNTRL+1 

• 

LA? S£ 

AG? CNTRL+£ 


LA? S3 

Rp? CNTRL+E 

• 

LA? S4 

AO? CNTRL+£ 


LA?S5 

A0?CNTRL+£ 

• 

LA? S6 

A0?GNTRL+£ 


SA ? S3 

AO? CNTRL+1 

i i 

SA? S3 

AO? CNTRL+1 

i 

SR?S4 

AO? CNTRL+1 


SA? S5 

AO? CNTRL+1 


SA?S6 

AO? CNTRL+1 


SA? S£ . 

AO? CNTRL+3 


SA? S3 

AO?CNTRL+£ 

• 

SA? S 4 

AO? CNTRL+£ 

■ 

SA? S5 

AO? CNTRL+8 


SK*S6 

AO? CNTRL+E 


+ 

06000300000 


RES 

4099 


END 

ATU 



FETCH 


STORE 







INSTRUCTION 


INSTRUCTION 



CHARS - CHARS is to meet the needs of a user who must manipulate 
characters. This is a series of six (6) routines - 3 pairs. 

The first two pack and unpack AMOS characters; the second pair 
pack and unpack ASCII character; and finally, the remaining two 
translate from one character set to the other. The first four 
routines are of the type "subroutines" while the latter two are 
of the type "integer function." All six require or produce 
characters that are right justified and zero filled on the left. 

USAGE - The calling sequences are symmetric, i.e., all are of 
the form 

"NAME" 

Call "NAME" (input array, size of input, output array) where 
"NAME" is built as follows: 

I . . . ■ • • '-'?*** ■ l. 

The first three characters of the name on PAK or UNP for pack 
or unpack respectively while the remaining three are ASC or AMS 
for obviously, Ascii or Amos type characters. Size of input is 
in units of words if unpacking, and in number of characters 
(which equals number of words) if doing a pack. 

The two integer functions AMSTASC and ASCTAMS have one calling 
argument - the character to be converted. The value of the 
function is the translated character. Characters which are in 
the Ascii character set but not in the Amos set are returned or 
question marks. 

The names are from the mnemonic phrase Amos to Ascii and Ascii 
to Amos . Attached are listings. These routines are resident 
on ppw 201 of the four-people pack. 

PROGRAMMING DESCRIPTION 

All of the pairs (by function) of the routines work in similar 
fashion. For the routines that do packing, a working word is 
built up a character at a time. When full (four with Ascii, 
five with Amos) , the word is stored back into the users array 
via the calling sequence and another working word is started. 
This continues until the number of input characters is exhausted. 

In the unpacking sequence, the working word is one word of the 
input from the calling sequence producing several output words, 
each containing one character right justified and zero filled. 

The translate programs both use the character's collating 
sequence value as an index into a translate table, possibly 
after an offset adjustment. Characters with no correspondence 
are arbitrarily given the value ' ? ' . 
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PRINTS 


Printed Example 


PAKASC - 


1! 

£: 

• 

4: 

5: 

6s 

7s 
3 s 
9S 


1 0 5 
11 S 

l£s 

M* 

15s 
1 6 » 
17: 
188 
198 

£ 0 s 

•3 1 »: 
Cl* 

CO • 


£4S; 

£5s 

£ 6 : 


1 0 
5.0.0 



SUBROUT I NE PRKRSC < I N ? NCHRRS »OUT> 
IMPLICIT INTEGER <R-Z> 

DIMENSION IN <1) > OUT <1) 

DIMENSION SHIFT (4) 

DRTfl SH I FT.-' £3 * 1 6 * 3 > 1 / 

DATA MSK--177B.-- 
0WDKT=NCHARS--‘4 
IFCOWDKT.LE. 0> GOTO 500 
DO 10 1 = 1 -• QWDKT 
K = < I — 1 > '♦4 

WORK* < I N <K+ 1 > . AND . MSIO . L . £3 

WORK-WORK. OR. < CIN <K+£> . ANIL MSK> . L. 16> 

WORK* WORK . OR . < < I N <K+3) . RND . MSK> . L . 8> 

WORK=WORK . OR . < < IN <K+4> . RND . MSK> . L . 1 > 

OUT <I> =WORK 

CONTINUE 

R E M = N C H fi R S 4 

IFCREN.LE. 0> RETURN 

WORK-O 

IOFF=OWDKT^4 

DO £0 J=1 t REM 

k*shift<j:> • 

WORK*WORK. OR. < < I N < I OFF+ J> . AND . MSK> . L . K> 
CONTINUE 

OUT < OW DKT + 1 > *WORK 

RETURN 

END 


UNPASC 


£9*. SUBROUTINE UNPRSCXIN* NWDS»OUT> 

30s IMPLICIT INTEGER <R-Z> 

31 s DIMENSION IN 01> ? OUT CD 

3£s DO 10 I * 1 > NWDS 

33 s J* < I — 1 > ♦4 

34: WORD* IN <I> 

■35s OUT t J+l> = < '"WORD. R. 1.) . AND. 3760000000B> ,R. ££ 

36 : O UT < J +£>* < W ORD. AND. 37 6 0 0 0 0 0 B > . R . 1 6 

37 : OUT <J+3> = CWORD . AND . 774 0 0B> . R . 8 

38: OUT <J+4>* CWORD. AND. 376B> .P.l 

39* 10 ! CONTINUE:: ■ 

40s 1 RETURN 

4i: . .'.-end 



UNPAMS 



4<£S 

43s SUBROUTINE UNPRMS <IN>NWDS*buT> ' 

44! IMPLICIT INTEGER (R-Z) 

45: DIMENSION IN'<1> *OUT<l) 

46: DO 10 I = 1 » NWBS 

47: WORD- IN (I) 

43: J= (1-1) ♦S 

49 : OUT < J + 1 ) = •:! (WORD . R . 1 > . AND. 374 0 0 0 0 0 D OB) . R . £3 

50! OUT <J+£) * <WORD. RND. 77000000B> . R. 18 

51 : I OUT CJ+3> = (WORD. RND . 770000B> . R. 12 

52 ! OUT < J+4) = (WORD. RND . 77 0 OB) . R . 6 

53: OUT (J+5) -WORD. RND. 77B * ■ 

54: 10 CONTINUE 
55: RETURN 

56: END 

PAKAMS ! 



^UERDUTI NE PfiKRMS ( I N n NCHRRS j OUT) 
IMPLICIT INTEGER (R-Z) 

DIMENSION IN (1) y OUT CD 
DRTR MSK>'77B.-' - 
DIMENSION SHI FT (5) 

DRT R SH I FT •••■'£4 y 13? 1 £ y 6 y 0- - ' 

WDKNT =NCHRRS-'5 
IFCWDKNT.LE. 0) GOTO 500 
DO 10 I®1* WDKNT 
J*(I-1) ♦S 

WORK- < I N (J+ 1 ) . RND . MSK) . L . £4 

WORK-WORK . OR . < (IN (J+£) . RND . MSK) . L . 18) 

WORK«WORK . OR . < (I N < J+3> . RND . MSK) . L . 1 £> 

WORK-WORK . OR . < (I N < J+4) . RND . MSK) . L . 6) 

OUT < I > =WORK . OR . C I N (J+5) . RND . MSK) 

CONTINUE 

CONTINUE 

REM=NCHRRSA.-5 

IF (REM. LE . 0) RETURN 

WDRK-0 

I OFF “WDKNT 4-5 
DO £0 J= 1 y REM 
K=SHIFT(J) 

WORK=WORK . OR . < ( I N ( I OFF+J) . RND . MSK) . L . K> 
CONTINUE 

OUT (WDKNT +1 > “WORK 

RETURN 

END 






AMSTASC 


INTEGER FUNCTION RMSTASC <I> 

INTEGER XLRTE<64> 

DATA XLATE/1K C? IK’;? 1K3 ? IK! ? 1K&? 1K>? IK: ? IK'- 

1 ? 1 K ? 1 K? ? 1 K < ? 1 K> ? 1 K 0 ? 1 K 1 ? 1 K£ ? 1 K3 ? 

2 ? IKS ? IKS? IK? ? 1 K= ? IK? ? IK— ? IK. ? IK/? 

3 ? 1 KD ? IKE? 1 KF ? 1 KG ? 1 KH ? 1 K I ? 1 K J ? 1 KK ? 

4 ? 1 KP ? lKO. ? 1KR ? 1 KS ? 1 KT ? 1 KU ? 1 K V ? 1 KW ? 

5 ? 1K:>? IK?? IK”? IK?/ 

AMSTASC* < CXLATE < I + 1 > . R . 1> .AND. 376000 0 0 0 0B> 

RETURN 

END 


? 1K+ 
1K4? 
IK ? 
1KL? 
IKK? 


•? IK? 

1 K6 ? 
1KB? 
1KN? 
1KZ? 


ASCTAMS 


INTEGER FUNCTION RSCTRMS (. I > 
INTEGER KLATE <64> 

DATA KLATE/ ' ? •" I •" ? A x ? 


♦ *'* ? * H* — '' j *'’ . / '' j 0 '' ? '' 1 '' 


4 ' ? *' 5 ' ? •' 6 '' 


-p- y J .• •• , •• •• J •• |j| •' . •' |Z[ •• y j: 


•- E ? •" F •" ? •" G •" ? -'H-' - 


' $ ? ■" ? 


8 ? •“ 9 •" 


.j " ? ->::••• 


? c ? 

? L " ? 

? U •" ? 


. ' ? ’ ■ ? 


5 i ■" N " ? 0 P •- ? Q ? -■ R S -• ? - T ? -■ U •" ? 

6 ! W X •" ? ■- V Z ? •" C •" ? •“ ••••• •- ? 3 ? •- " -• ? 

J*I, AND. 177B 

IFXJ.6T. 14 OB .AND. J.LT.173B> J*J. AND. 137B 
ASCTAMS*XLATE <J-37B> 

I F <J . GT . 1 37B . OR . J.LT. 04 0B> RSCTRMS* ' ? ' 
RSCTRMS* < CRSCTRMS. R. 1> . AND. 374000000 0B> . R. 23 
RETURN 
END 




-Mover 


A very common function of computer code is moving a, group of 
computer words from one location to another. Mover has been 
designed to this function. , 

■ ■ . • i 

It is used as a Fortran callable subroutine? for example, CALL 
MOVER (FRM,FINC, TO , TOINC , NWDS ) . FRM is the input array, and 
FINC is the increment to move through this array. Both zero 
and negative values are allowed. TO is the receiving array, 
and TOINC is the increment to add after each store. NWDS is 
the total number of words to transfer. 

To zero out an array of 100 words: 

CALL MOVER(0,0,A, 1,100) 

To move every 10th element of 10 X 10 array into a 10 word array: 
CALL MOVER (BIG (1) ,10, SMALL ,1,10) 

The listing: 

SUBROUTINE MOVER <FRMrF INC > TO rTO IMG »NWDS> 



IKNTa-NWDS 



IF-riKNT.GE. 0> 

RETURN 


IPTR-SFRM 



OPTR=3TO 



I 1 NC-F 1 NC 



□INC-TOINC 

! U ■ 1 

ft 

LP: 

MDBR'I 

ipTR 

ft 

BRMD'I 

OPTR 

ft 

i 

MDftR 

I jPTR 

ft 


MDftE 

I INC 

ft 

■ i 

j 

ftRMD 

IPTR 

ft 

j 

MDftR 

OpTR 

ft 


MDftE 

□ INC 

ft 

ftRMB 

OPTR 

ft 

WDflR'N'X 

IKNT 

ft 

JPLS 

LP 


RETURN 



END 



An identical routine exists on the 1110 which utilizes the 
"block transfer" instruction. The use of it is absolutely 
identical . A listing follows. 
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• THIS IS A BLOCK TRANSFER PROGRAM USEING THE 1108 BT INSTRUCTION 

*■ .. . FORTRAN CALLING SEQUENCE 

V CALL MOVER < FROM ^ INCREMENT FOR FROM ARRAY# TO# INCREMENT FOR TO ARRAY 
* 

. NUMBER OF WORDS TO TRANSFER) 

v V 

V- THIS SLOWER TRAN DO -LOOP IF 5 OR LESS WORDS TO TRANSFER 

• 

• EXAMPLE ' 

V ZERO 100 WORDS OF THE ARRAY C 

V CALL MOVER(0#0#C# 1# 100) 


MOVE EVERY 10 WORD OF AN ARRAY A< DIMENS ION < 10* 1000) ) INTO EVERY 
CONSECUTIVE WORD OF B# AND DO THIS FOR 1000 WORDS 
CALL MOVERCA# 10#B# 1# 1000) 


SCI) AXRS . 
MOVER* L#U 
LXI 
L#U 
LXI 
L. 
BT 
J 


A0#*0#X11 . 
A0#*1#XU . 
Al#*2#XI 1 • 
AI#*3#XU . 
R1#*4#XU V 
Al# #*A0 • 
6#X1 1 . 



UNIVAC I/O 


A series of routines have been written to assist the user in 
interfacing his application software with the Exec 8 file 
maintenance software. With these interfaces it is possible 
to read from and write directly into program files. The elements 
that are thus created may be manipulated with ED and ELT pro- 
cessor and are in all ways compatible with the Exec 8 system. 

There are three routines in this interface package. With one, 
a program is involked on an Exec 8 processor, i.e., @URFILE . 
ABSELT namel,name2. The behavior of a program involked is 
similar to the ELT processor. The input stream may be an Exec 
8 element or the runstream, via the "I" option. Output is 
optional but if desired then the second name must be present. 

-I J 'i 

This routine was then sectioned out into two separate routines , 
one for reading and one for writing. When using either or both 
and then the program is involked in the normal manner for an 
Exec 8 user program - that is via the @XQT URFILE . ABSELT control 
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Since the invo Iking control card of a processor contains the 
file and element names, this information is not required when 
calling the entry points of the IF program. However, since 
there is no such information on a XQT card, the desired file 
name and element name must be passed the reading {or writing) 
routine via coded calls within the user program. For reasons 
of simplicity of development, it was decided that the file to 
be read from would or always be named $READ and one written 
into would have the name $WRITE. These files must be attached 
to the run with an @ASG,AX card and the name of either (or both) 
$ READ/ $ WRITE use-attached to the file. 


Program IF ! 

Usage is rather simple. There are four entry points to this 
routine, three major and one minor. The major entries are: 

CALL SIREAD ($ERR,$EOF, BUFFER, FILCHR) 

and CALL pgm out($err,$eof, buffer, filchr) 

CALL DONE ($ERR) ;*£*■ 

The first time either SIREAD or PGMOUT is called, the program 
is initialized. This must be done prior to any read from Unit 
5 - the input stream device . The arguments are: 


$ERR - Fortran statement to receive control if an error 
is detected. 

$EOF - Fortran statement to receive control if an End-of- 
F.ile is read. Note that this is a dummy 
argument in the output routine. 

BUFFER - This is the image that will be output or the array 
to receive is incoming data. 


FILCHR - Normally a 1H5 would be used here. It was originally 
included so that trailing zeros, rather than 
trailing blanks could be dropped. Its use other 
than a word of blanks is not encouraged. 


SIREAD and PGMOUT read in a 14 word image or write a 14 image. 
The image size is variable at assembly time in the routine IF. 
The values 14 or 22 are the only recommended values . 

DONE is an entry that must be called when I/O is : complete to 
drain all buffer and update the files table of contents. 


If a user elects to use the IF interface program, note that the 
program can only be invo Iked as a processor. 


27 



There is one other entry: 


CALL BEGINN ($ERR, $EOF) 

that is used to initialize the program so that unit 5 reading 
may take place prior to actually wanting pass an image. 

Example: 

A very simplified example of the use of IF. Suppose a Fortran 
program as follows: 

DIMENSION IMG (14) 

1 CALL SIREAD($99 # $99,IMG,1H5) 

CALL PGMOUT ( $ 9 9 / $ 9 9 / IMG , 1HB ) 

GO TO 1 

99 CONTINUE 

CALL DONE ($100) 

100 END 

which was collected in TPF$. The map used was: 

@MAP, I A,B 
IN TPF$. 

END 

Then the card: 

@.B AFILE . BELM, CFILE .DELM 
does exactly the same as 

@C0PY , S AFILE. BELM, CFILE. DELM 





$<o> 


IF " ■ ■ 

AXRS 1 

. THIS PROGRAM IS DESIGNED TO ALLOW A FORTRAN PROGRAM TO BE 
. INVOKED AS A PROCESSOR J 
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USEAGE 


CALL 


IS 

S I READ OFERR * *EOF , BUFFER r F I LCHR> 


AND 

CALL PGMOUT OF ERR * SEOF n BUFFER j F I LCHR> 
AND 

CALL DONE OFERR> FOR CLOSE-OUT 


FOR INPUT 
FOR OUTPUT 


IF MAY ALSO BE INITIALIZED WITH THE FOLLOWING CALL 
* CALL BEG I NN OFERR » SEOF> 

THIS CALL DOES NOT READ AN IMAGE 

! TOTALLY REWRITTEN FOR SIGMA CORP 
SUMMER -75 

AUTHOR WALTER N COLQUITT 

I REGISTERS USED AND NOT RESTORED ARE THE -VOLATILE" SET 


PR I NT 9- 

PROC 

1*2 




LA 

AOs* PRINT <1 > 

1> 


• 

ER 

PRINT* 




END 



— 

PCW# 

• 

PROC 

i* i 




PF 

us-pcwxm 

> i-pcwa , i:> ' 



END 

■ I 



F^F 

FORM 

12K6.»18 



BUFLEN 

EQU 

1792 

AN EFFICIENT I--0 SIZE 


IMRGELENGTH EQU 

14 

• USER'S RECIEVING LENGTH ♦• ♦ ♦ 

IMPORTAN 

T ♦• ♦* 

. i 





1 

INBUF 

• 

RES 

£ ♦•BUFLEN 

WHERE INPUT IS PLACED 


dUTBUF 

RES 

2^BUFLEN 

WHERE OUTPUT IS TAKEN FROM 


PARTBL^. 





DO 14 * 

♦ OD 




PFIPK'T 


OD 




+ 

ob , : i : 


i( 


Hh 

0 

• > 




IrO 




+ 

OD 




4“ 

1 » 0? 1 




+■ 

Of 0 




4- 

0 





0 
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f : 

f i 

j; 

l FLAGS + 

\ svxn + 

if: PFISftT , + 


B6NFLG +■ 

LABEL +• 



; ** . 

SI EQUF 

Y i Helm equf 

is INVER EQUF 


0 

0 XI 1 SAVE AREA 

0 
0 ! 

0500130* 0 INITIAL £ IMAGES IN FILE TO BE READ BY 

-♦SDFF*-" SI RASH 

OD 
0 

00 0 £ 0 0 0 * 0 
BIJFLEN* 0 

0 ! 

I NBUF * INBUF+BUFLEN 
BUFLEM^28t IMAGELENGTH 

1 *; 0 

lJ'O i! “ / 

0 

OD 

0 r ; . 

0001000*0 
BUFLEN* 0 
0 

OUTBUF* OUTBUF+BUFLEN 
BUFLEN.'ES* 0 

1* 0 . . . ■' ...-..-v.-; 

1 * 0 

0 : ■■ j | W 

' • • i 

PARTBL+1 -•USE" ATTACHED INPUT NAME 

PARTBL+3 •' 

PARTE L +7 


. i 

SI LOG 

EQUF 


SO 

EQUF 


OUTELM 

EQUF 


OUTVER 

EQUF 

i'- 

SOL DC 

EQUF 


BSC II 

EQUF 


NONAME 

EQUF 


STARTED 

EQUF 


IOPFLG 

EQUF 


LOPFLG 

EQUF 

ll 

GOPFLG 

EQUF 

Y* 

r *■ 

INADDR 

EQUF 

11 

JNBUFR 

EQUF 

-C ‘ 

ICWI 

EQUF 

f I- 

DELETED 

EQUF 

If. 

ii 

.{!; 

□UTRDR 

EQUF 

OLITBFR 

EQUF 

1 -;t 

• 

j: ; 

ICWO 

EQUF 

i 

I OP 

EQU 

! 

i 1 . 

Lop 

EQU 

ii 

OOP 

EQU 

; ?■ 

ELNAM 

EQUF 


ELVER 

EQUF 


SLOT 

EQUF 


TXT ADR 

EQUF 


! 

if 30 


PRRTBL+1 1 
PARTBL+14 
PARTBL+1 6 
PARTBL+c’ 0 
PARTBL+86 
FLAGS* * S1 
FLAGS* *S£ 
FLAGS *- * S3 
FLAGS* * S4 
FLAGS* * S5 
FLAGS * * SG 
FCTI+5 
FCTI +8* *H2 
i FCTI+10 
! FCTI+10* *S4 
FCTO+5 
FCTQ+8* *H£ 
FCTO+1 0 
l^c-z i 
l+--(.-‘Z-'-'"L-'> 
1 < -• Z •- - •" 0 •" > 

PFIPKT+E 
PFIPKT+6 
PFIPKT+9* *H£ 
PFIPKT+10 


EE PARTBL FORMAT CUP-41 44* CHAPTER 9> 
USE" ATTACHED OUTPUT NAME ' 



sa> 

□CTRL 


SU'D 


+■ 

0 

Lip r U 

AS* 11 

LR * XU 

R2*-7 

DL 

A6 * < 0 0 0 0 0 0 000000 ' 

MLU 

A5* A6 

SSL 

A5*3 

DSC 

A6 * 6 

JGD 

R8*S-3 

DSC 

R6*36 

J 

♦OCTAL 


! THIS IS THE MAINLINE SECTION FOR INPUT 


SI READ* SX 

SLJ 


FILEIN 


CQNTLIMG 


X1|1*SVX11 

s 

INITIALIZE 


SZ 


j A3 

LA* U 

! A 0 j ♦£ * X 1 1 

Sft 

AO* INBUFR 

TN 

"7 

IDPFLG 

J 


FILEIN 

LX 

I»U 

■ AO* INEDF 

ER 

READS 

SR 

AO* ICWI 

LX I » U 

1 A 0 * 0 

J 


FI LOUT 

LA 

* U 

AO* FCT I 

LMJ 

XI 1 * SDFI 

J 


INERR 

J 

1 

INEDF 

TP 

ICWI 

J 


CDNTLIMG 

TZ 

■■ 1 

DELETED 

J 


FILEIN 

J 


TESTASC I 

LA 

A3* ICWI 

DS 

L 

A3* 30 

SS 

L, 

A4* 6 

TNE*U 

A3* 040 

J 


FILEIN 

TNE*U 

A3* 051 

J 


NOCONT 

TNE ? U 

A3* 04c’ 

SR 

A4* ASCI I 

TZ 


NONAME 

J 


FILEIN 

LR 


AO* ICWI 

SR 


ao* icwa 

LR 

Jr 1 J 

AO*FCTO 

LM 

J 

XUjSDFO 

J 


OUTERR 

J 


FILEIN 


'SAVE XI 1 

ONLY 1ST TIME WILL 

THIS SLJ BE EXECUTED 

RLL THESE CLEARINGS OF R3 FOR ADR=IND 

RDDR OF RECIEVING BUFFER 

USER'S RECIEVING ADDRESS 

INPUT IS FROM MASS STORAGE 
AO NOW PREP 'ED FOR THE CARD READ 

A DEBUGGING AID IF BAD READ 


INPUT FCT ADDRESS 

GET SOURCE DATA FILE INPUT IMAGE 

MSG AND TAKE ERROR RETURN 

TAKE EOF RETURN 

IS THIS A CONTROL IMAGE 

YES * SO SEE IF OUTPUT IS ALLOWED 

NO. HAS IMAGE BEEN DELETED? 

YES IT HAS 

NOT DEL.!- NOT LABEL IMAGE SO PRESS ON 



A LABEL I MG* BUT IS OUTPUT ALLOWED? 
NO IT IS NOT 
GET CONTROL WORD 
USE FOR OUTPUT 

WRITE OUT THE DELETED LINE 

GET NEXT IMAGE 


TESTASCI 

TNZ 

BSC 1 1 

BO WE NEEB TO CONVERT . . 


J 

CNTL 

NO, ALREADY IN F.B. 


LB 

BjT , INBUFR 

INPUT BBBR 


LB 

BiG, ICWI 

CONTROL WORD 


SSL 

BO ,2 4 

NOW BSC I I WORD COUNT 


L B 

B£» INBUFR 

OUTPUT EUFFR BBBR 


LMJ 

X11,ASCFD 

CONVERT VIA SYS ROUTINE 


sa*se 

BO, ICWI 

NEW COUNT TO CONTROL IMB6E 

CNTL 

LX 

XI 1 , SVX 1 1 

RESTORE XU 

- 

LB 

BO, ICWI 

GET THE CONTROL WORD 


SSL 

BO, £4 

MOVE IMBGE COUNT OVER TO THE' RIGHT 

FILOUT 

RU 

BO, INBUFR 

WHERE TO BEGIN THE FILL 

- 

LX|,U 

B1 , 1 

i;ncrement by i 


BNR * U 

BO, IMBGELENGTH 

NUMBER OF WORDS TO FILL 


SMB 

Bp , R 1 

PLACE COMPUTED REPEAT COUNT INTO Rl 


$Z 1 

B3 


■ ■ > 

LB.* U 

BO, *3, XI 1 

GET THE CHARACTER TO BE BS 'FILL’' CHAR 


BT 

PI , , ♦BO 

ZINNNING! ! 


TNZ 

LOPFLG 

L-OPTION IS ON? 


J 

5, XI 1 

NO, SO RETURN 


LB 

BO, <PF 1, IMBGELENGTH, 0> 


LXM 

BO, INBUFR 

PRINT CNTL WORD NOW FORMED 


ER 

PRINTS 


/ . . 

J 

• 1- ■ 

5, XU 

BNB RETURN TO FORTRAN CALLING PROGRAM 


HERE 

WE PREFORM THE J 

OUTPUT FUNCTION 

PGMOUT* 

• 

sx 

XI 1, SVX 11 

SAVE GOOD OLE XI 1 


SLJ 

* 

JUMPS TO S+l IF 1ST PASS, OTHERWISE S-H2 


SLJ 

INITIALIZE 

THIS IS DONE ONLY 1ST TIME 


sz 

B3 



LB* U 

BO , ♦£ , X 1 1 

ADBR OF IMBGE ID OUTPUT 


SB 

BO, OUTBFR 

PLACE INTO THE CONTROL PACKET 


LXI,U 

B 0 , 0 1 0 O-m-I magelength 


TZ 

OOPFLG 

OUTPUT PRINT FLAG ON? 


ER 

PRINTS 



LB 

B 1 , *3 , X 1 1 

WORD OF CHARS TO BE DELETED 

- . 

LR,U 

Rl, IMBGELENGTH 



LX I? XU 

BO, -1 

. THESE SIX LINES OF REALLY 


SNE 

Bi , IMBGELENGTH- 

-1 , ♦BO . EXCELLENT CODE WERE DESIGNED 


LR , XU 

Rl , -1 

. BY MESSRS. FLOYD LINN, 


SR 

Rl ,B0 

. KIRK YRRINp, , AND 


LB, LI 

BO, 1 , BO ! 

. WALT COLQUITT 


LSSL 

BO, 24 

' 1 


SB 

BO, ICWO 

j ' - • • . ■ ' ; ...... ; -. •••■' 


LB, U 

b6,fcto 

BDDR OF OUTPUT FCT 


LMJ 

Xil,SDFO 

OUTPUT TO FILE 


J 

□UTERR 



LX 

XU, SVX 11 

RESTORE GOOD OLE XU 

; V. 

J 

5, XU 

AND RETURN TO CALLING PROGRAM 
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DONE* 




FINOFF 


I 


' HERE FILES ARE CLOSED AMD RETURNED TO ORIGINAL STATUS. 
THZ-S SUB-PROGRAM MAY NOT BE AGAIN REFERENCED 


$x 

Xjl I ? SVX 1 1 


LA 

a!o? <j nomore) 

ERROR RETURN 

SA 

A'jOfPGMOUT 

LOCK OUT ANY MORE CALLS 

SA 

AO ? SI READ 

TO THIS SUB-PROGRAM 

SA 

A pit DONE 


T 7 

1 

IOPFLG 

WAS INPUT FROM CARDS 

J 

®+3 

YES? SO NO NEED TO CLOSE SDFI 

LA* LI 

AO ? FCTI 

CLOSE INPUT 

LMJ 

X 11? SDF I C • 


LA * U 

AO? FCTO 

CLOSE OUTPUT 

LA 

Al? NONAME 


JNZ 

Al ?FINOFF 

OUTPUT IS NOT BEING ALLOWED 

LMJ 

XI i ? SDFOC 


J) 

BADLASTWRITE 

■y ■ 

4 

AO -.SO 

FILE NAME FOR PFI$ PACKET 

DS 

AO? PF I PKT 


DL 

AOjOIJTELM 


DlL 

AS? QUTVER 


JNZ 

AG? $+3 


DL 

AO? INELM 


Dll 

AS r INVER 


DS 

AO? ELNAM 

; fx ■ 

DS 

J AS? ELVER 


LA 

AO? OUTADR 


A!SA 

AO* SDL DC 

- ’ 

SA 

AO ? SLOT 

SECTOR SIZE OF THE ELEMENT 

LA 

Al? OUTADR 


LN?U 

AO? PFIPKT 


ER 

PFI* 


SA 

AS? PFISAT 


LMJ 

XI 1 ? POSTPR 

CLOSE AND PROPERLY RELEASE FILES 

J 

FINALERR 


LX 

XI 1 ? SVX 11 


J 

S ? XI I 




/ ' . 

, INITIAL I-ZRT I ON OF INPUT AND OUTPUT OCCURS HERE 


INITIALIZE 

• 

■ ■ . , w 

■K 

0 


TZ 

STARTED 

HERE BEFORE? 

4 ■ i 

♦*-e 

YES 

LA* U , 

AO* 1 


SA 

AO* STARTED 


LMJ 

XI 1 * PREPRM 

OPEN THE FILES 

J 

|Ner 

FATAL ERROR - CAN'T OPEN 


AO* PARTBL 

OPTION LETTER MASK 

LA* U 

Al * 1 


TEP * IJ 

AO* LDP 


SA 

Al * LOPFLG 


TEP*U 

AO*OOP 

"O" OPTION ON? 

SA 

Al > QOPFLG 

YES, SO SET FLAG TO -ON" \ 

TEP* U 

Ap * I OP 

IS THE I OPTION ON? 

J 

IOPON 

YES 

LA* S3 

A0jPARTBL+6 


LA* U 

Al * 0 


LA*U 

AS* 4 


TW 

Al * AO 


J 

BADTYPE 


SA * S3 

AO* PFIPKT+5 


LA* SI 

A0*PARTBL-K10 


S Hi * S 1 

a6,pfipkt+9 


D- 

AO* SI 

-NO SO MUST BUILD THE FCTI 

bs 

A0*FCTI 


Lfl 

AOjSILOC 


Sp 

AO* I NAD DR 

■ : ■ •• ' ' . 

LA*U 

A0*FCTI 

: ‘ -r: ' 

LMJ 

XI 1 * SDFIO 

OPEN INPUT FILE 

•J 

FTO 


LA* U 

A 0 * FCT I 


LtlJ 

XI 1 * SDFI 

GET INITAL LABEL IMAGE 

. js 

INERR 

Ilj^PUT READING ERROR 

j 

INEOF 

EOF AT THE VERY BEGINNING 

Lp 

Ap* ICWI 

GET CONTROL WORD 

SA 

AO* ASCII 

STORE AWAY ASC I I FLAG 

SSL 

AO* 30 

IMAGE TYPE TO LOWER 6 

TE * U 

Ap* 050 


J j 

i HOI STL AB 


TZ 

scj 

WAS SO FIELD NAMED? 

J 

iqpoH+s 

YES BUILD FCTO 

LA 

AO* CER ERRS) 

NO SO PREVENT OUTPUT 

SA 

AO* PGMOUT 

1 

LA*U 

AO* 1 


SA 

AO* NONAME 

DISALLOW ANY OUTPUT 

J 

EXIT 
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IOPON LAsU AOs 1 

SR AOsIOPFLG 

DL AOs SO 

DS AOsFCTO 

LAsU AOsLABEL+1 

SR ROvOLITBFR 

LR AOsLABEL 

SR R0» ICWO 

LAsU Alls SO 

ER PFWLS 

SR AlsOUTADR 

SR A1 sTXTADR 

LAs U AOs FCTO - 

TN2 NONAME 

LMJ I XI 1 sSDFDD OPEN OUTPUT VIA SDFOO 

LAs U AO* FCTQ 

LR Als NONAME 

JNZ R1 s EXIT 

LMJ XllsSDFO WRITE THE LABEL IMAGE NEEDED BY SIRASM 

J FTWL 

EXIT ' LX XI 1 s SVX1 1 

TNZ BGNFLG 

J ^INITIALIZE ‘ 

LX XI Is BGNFLG 

SZ BGNFLG 

J 3* XI 1 

BESINN* SX XI Is BGNFLG 

J INITIAL IZE+3 

_ i; . / 

! THE ERROR HANDLING IS HANDLED IN THIS SECTION 


OUTERR 

LX 

XllsSVXll 


PRINT 

OUTERMSG 


J 

Os XI 1 

INERR 

LX 

xiissvxn 


PRINT 

INERRMSG 


J 

OsXll 

INEOF 

LX 

XllsSVXll 

: :r; 

J 

I Is XU 

• 

BADLASTWPITE . 



PRINT 

LSTMSG 

H ....... i 

J . 

FINOFF 

FINALERR 

PRINT 

DNER 


LX 

XllsSVXll 

! 

J 

Os XI 1 

OPNER 

PRINT 

NDSTRT 


ER 

E^R$ 

NDMORE 

PRINT 

NOTAGN 


ER 

ERR* 

FTO 

sLj 

OCTAL 


DS 

ASsSTl 


PRINT 

NOOPEN 


ER : 

ERRS 
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I . 

I”. 


FTWL 

SLJ 

DS 

PRINT 

OCTAL , 

A£*ST£ 

NOLABEL 



EP 

ERRS 


BADTYPE 

PRINT 

WRNGTYPE 


i 

ER 

EpRS 


i NOCONT 

PRINT 

CANTCONT 


j: ..... . 

ER 

EpRS 


NOISTLAB 

i *• 

PRINT 

ER 

FI|#TLAB 

ERRS 


> 

• i; 

. MESSAGE STACK 

$o;o 

9 

» .' 

c £.*P 

; . - i _ _ _i r 

MS G 1 

•-♦IF^ ERROR READING FROM THE INPUT FILE" 

INERRMSG 

PCW 

MSG1 


MSGS 

•-►IF^ 

ERROR WHILE WRITING TO OUTPUT FILE" 


jOUTEPMSG PCW MSGS 

; f p 

; MSG3 •-■►IF*- FINAL WRITE HAD AN ERROR" 

ILSTMSG PCW MSGS 

; MSG4 ’►IF*- ERROR IN CLOSING FILES’- 

DNER PCW MSG4 

MSG5 "►IF^ THE INTERFACE SUBPROGRRM MAY NOT BE CALLED-’ 5 

! •- RGRIN RFTER CALLING " ’ DONE-’ " -\ : . 

NDTRGN PCW MSGS 

MSG6 ’►IF^ FAILED TO INI TALLY OPEN VIA PREPRM" 

NDSTPT PCW MSG6 

MSG? '►IF^ FAILED TO OPEN INPUT FILE. ELEMENT " 

ST 1 RES S 

NOOPEN PCW MSG? 

MSGS •-►IF^ FAILED TO WRITE INITIAL LABEL IMAGE". 

• STS RES 2 

H NOLABEL PCW MSGS ■■.' ' V 

■rl MSGS •-►IF^ INPUT ELEMENT IS NOT SYMBOLIC" 

■S WRNGTYPE PCW MSGS 

MSG 10 "♦IF^ CAN' -'T HANDLE CONTINUATION IMAGES" 

if CANTCONT PCW MSG 10 

j MSG 11 -►IF^ ELEMENT FORMAT ERROR-1ST IMG IS NOT A LABEL IMAGE 

: FIPSTLAB PCW MSG 11 

I END 


36 


READ ALL and WRITEALL have two modes of operation where in one 
mode images are passed back to the calling routine one line at 
a time. In the other mode, an entire element is loaded into 
memory with but one call. 

Both of these subprograms were developed from the coding of "IF. 
They are to serve the purpose of allowing program execution with 
out using the "PARTBL" and yet still allowing direct access to 
Exec 8 program files for data storage. 



Os >PS 
$< 0 > 


READ ALL 
AXRS 


THIS FORTRAN CALLABLE SUBROUTINE WILL REftD IN ALL OF 
.[ AN ELEMENT FROM A FILE WHICH HRS THE 'USE'' ATTACHED 

NRME OF •BREADS/. RLL IMRGES RRE EXPECTED TO BE 14 WBS 
. I LONG;. THROUGH RN RSSEMBLY TIME PARAMETER 


‘! CONTRACTOR: SIGMR CORPORRTION 

- . ' j 

' RUTHDR: WRLTER N COLQUITT 

. j DATE : SPRING 1975 

! i I FORTRAN LINKING SEQUENCE 

.Ml FIRST! 99USE SREADjUR-FILE-NAME * OR VIA NERTRRN ? 
. , DR JUST RN 9 USE .’BREAD r UR-F I LE-NAME PRIOR TO 

. I INVOLKING THE PROGRAM 

. THEN* IN THE EXECUTABLE CODE! 


CALL RE AD AL < " EN •' > ' VN •" * BUFFER * KRDKNT) 

! NOTE ’’EN' & -VN- RRE 1£ CHARS <2 WORDS) LONG 

' EN ' : 12 CHAR ELEMENT NAME THAT IS TO BE READ 

' VN ' : 1 2 CHAR VERSION— 8WDS OF ZERO ALLOW ANY VERSION 


BUFFER: THE AREA TD RECIEVE THE 14 WORD CARD IMAGES 




4 


1 


KPDKNTs AN ACTUAL COUNT OF THE CARD IMAGES PLACED 
IN THE BUFFR r: 

THE L I NE-AT -A-T I ME ENTRIES ARE 



CALL BEGIN < ' EN ' * ' VN ' > 


VN=0D OR 99959 Cl ST I MES> WILL CAUSE 
VERSION NAME TO BE IGNORED 


. CALL getcrd<:buf*$edf> 

* CALL END 

I NEARLY ALL OF THIS CODE WAS DEVELOPED FROM THE INTERFACE 
PROGRAM CALLED 'IF' 


• ■ ■ i 

PRINTS PPOC 1*2 THESE PROCS STOLEN FROM PPEPPM 

LA AO* PRINT <1 * 1) 

ER PRINTS 

END : . . 
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PCW* 

PPOC 


PF 


END 

PF 

• 

FORM 

. ..*• 

V 


IMBGELENGTH EQU 


BUFLEN EQU 

inbuf fes 

FLAGS FES 

SXU RES 

FCTI +i 

i i 


+ 

RFSPKT +- 
+■ 

+• 

i 

+ 

+ 


+ 

+* 

BLANK +• 

FLAG +■ 

ELEMNRME EQU 
FLAGWOPB EQIJ 
VEPNBME EQU 
TEXTRDDR EQU 
DISKBDDP EQU 
COPERDDR EQUF 


1 » 1, 

if $-pcv<ifi> *pcwa*i> 


1 £ > 6 > 1 3 

14 USERS RECIEVING LENGTH 

1792 

2 ♦BUFLEN 
1 
1 

'■‘5RERD - FILE CONTROL TRBEL FOR INPUT 

/ / 

0 

0 0 02 00 Of 0 
BUFLEN > 0 
0 

INBUF* INBUF+BUFLEN 
BUFLEN/£8»IMR6EL£NGTH 


USE-RTTRCHEB FILE NAME 
ELEMENT NAME 


VERSION NRNE 
TEXT ADDRESS 


FCTI+8? jHS 


1, 

1* 

0 


•-:JjRERD 


on 

o i 

l » o 
OP 
OP 1 
0 
0 


0 - • 

PFSPKT+2 
PFSPKT+5 
PFSPKT-M5 
PFSPKT+-1 0 
FCTI +5 


ICWI 

EQU 

FCTI +10 

DELIMRGE 

EQUF 

ICWI? rS4 

ASCI BIT 

EQUF 

FLAG> f SI 

ONELINE 

EQUF 

FLAGjjSS 

STARTED 

EQUF 

FLAG »> S3 
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I 

| REftDAL* 



! OPEN 


f 


• i 



TZ 

ONELINE 

J 

ERRftMES 


sx 

XI 1 j SX1 1 


SZ 

ft3 

ftLLOW FORTRftN <ftDR*IND 

! BUILD 

T^E PFSS PftCKET 

DL 

f^O>*0>Xll 

GEJ ELEMENT NAME 

DS 

ftOsELEMNftME 

PLftCE INTO PftCKET 

DL 

ftO^l j. XI 1 

VERSION NftME 

DS 

ftO* VERNAME 

TO PftCKET 

TN2 

ONELINE 


•-*»£- 

*3*X11/ 

CLEftR CftRD COUNT ■$. 

! BEGIN 

THE SEARCH THRU THE TOC 

Lft^U 

ftQrPFSPKT 

LOOK FOR ONE 

ER 

PFS$ 


TZ 

RE 


J 

LOOKERR 


TP 

J 

FLftGWORB 

PFS 


• 

. NOW BUILD THE INPUT 

i 

• 1 

FCT ftND INITIALIZE INPUT 


ftO» TEXTftDDR 

EXTERNAL DEVICE ADORES: 

Sfi 

AO? BISKftDDR 

TO THE I- -0 PftCKET 

TZ 

ONELINE 


J 

3 * X 1 1 


LftfU 

ftO**£»Xl 1 

CORE LOCATION 

S' ft 

AO* COREftBDR 

INTO THE PftCKET 

LftVU- 

ROfFCTI 


LMJ 

XllrSDFIO 


J 

OPENERR 


LftirU 

ftO» FCTI 


LMJ 

XI 1 !»SDFI 


j ; ■ 

REftDERR 


j -A 

NOLftBEL 

# 

Lft 

ftru ICWI 


Sft 

RCUftSCIBIT 


SSL 

ft0»30 


TE-rU 

J 

ft On 050 
NOLftBEL 



GETONE 


CHECK 


PBS I MG 



i. :rr.: 

- GET IMBUES, ONE BT B TIME?BND STORE AWAY BT FULL LENGTH 


LA?U 

BO? FCTI 1 


LMJ 

X'l 1 ? SDFI 


J 

■* REBDERR 


J : . 

EOF 

ELEMENT NOW FULLY READ IN 

TN 

rcwi 

DID WE REBD B CONTROL IMBGE 

J 

CHECK 

NO? SO GO DO REGULAR THING 

iLb 

BO? ICWI 

GET THE CNTL WORD FOR THIS IMAGE 

DSL 

B 0 ? 3 0 

TYPE OF CONTROL IMBGE TO SI 

SSL 

Bl?6 

VALUE OF SWITCH TO SI OF NEXT B r REG 

TNE ? U 

BO? 051 


ER 

ABORTS 

_ : ■'Or.. . . 

THE? U 

BO? 042 

IS THIS BN BSCIIVFD SWITCH? 

SB 

B1 j BSCIBIT 

YES? IT IS i 

|l 

6ETONE 


SKIP 

IF IMAGE MARKED 

BS DELETED 

T*? 

DEL I MAGE 


J 

GETONE 


. CONVERT TO FIELDBTB IF IN BSC I I MODE 

TNZ 

BJSCIBIT 

ARE WE IN ASCII MODE? 

J 

PBS I MG 

NO \ 

LB 

B1 ? COREBDDR 


LB 

BO? ICWI 


?S.L 

B0?£4 


SB 

B1?B2 


LMJ 

X 1 1 ? BSCFD 


SB » S£ 

BO? ICWI 


• 

. BLBNK 

FILL IMBGE IF NEEDED 

. 

LB 

AO? ICWI 

- , • 

SSL 

BO? £4' 

V 

BU 

BO? COREBDDR 

- ■ 

LXIjU 

At ? 1 


f^NBuU 

BO ? I MB6ELENGTH 


SMB 

BO ? R 1 


LB? IJ i~ | 

B O ? BLBNK 

I : 

bt ; 1 : 

B1 -r * ♦AO 



i .... 1 

LX XI 1 ?SX1 1 

TZ 

QNELINE 


j .. 

3? XI 1 


LB 

B1 ? ♦G? XI 1 


BB-rU 

B1 ? 1 

! *"• ■ - 

SB 

Bi ? *3 « X 1 1 


LB 

BO? COREBDDR 


BA? U 

BO? IMBGELENGTH 


SB 

BO-r COREBDDR 


J 

GETONE 



RLL IMAGES HAVE BEEN READ IN* SO CLOSE OUT 


EOF 


BEGINS 


EXIT 


END* 


GETCRD* 


LA* 

U 

AQsFCTI 

LMJ 


X11--SDFIC 

LA 


AOvSXll 

J 


5* AO 

• 



OPEN 

ONE LINE AT 

i 

LA*U , 

A0*1 

SA 

I 

AO* ONELINE 

J 


READAL+3 

• 


ONELINE 

sz 


STARTED 

LA 


A On <J EOF) 

SA 


A0*GETQNE+3 

LA * U i 

AOitFCTI 

LMJ 


XI 1 * SDFIC 

LX 


X11*SXH 

J 


i*xn ' 

• 

. 

:lose 

OUTPUT AND C 

• 

TNZ 

i- • • 

ONELINE 

J 


1 jlxi 1 

SZ 


ONELINE 

'V s T* 

’ «£. 


STARTED 

SX 


XiiVSXll 

LA 


AO.* <J EOF) 

SA 


AO* SETONE+3 

LA* U 

A 0 * FCT I 

LMJ 


XI 1 * SItFIC 

LA 


AOjSXI 1 

J 


1 * AO 

• 

. RETURN 

THE. NEXT CAI 

TNZ 


ONELINE 

ER 


ERR* 

LA*U 

AO* *0* X 1 1 

SA 


AO* COREADDR 

SX 

i 

X11*SXU 

f" 

LA*U 

A 01* 1 

SA 


STARTED 

LA 

: .j: ■ 

AO* <J EXIT) 

SA 


AO * GETDNE+3 

J 


OPEN 


‘5 EOF RETURN 


TZ 


STARTED 


GETON 




' 1 WRITEALL • 

t<0> AXRS 

. ' • • ‘ 4 ' 7 ..'': • 

I THIS FORTRAN CALLABLE SUBROUTINE WILL WRITE OUT TO AN EXEC 8 
. PROGRAM FILE AN ELEMENT? EITHER RLL RT ONCE OR 
. ONE L I NE-AT-A— T I ME . 

I IMRGES TO BE WRITTEN OUT MUST BE 14 WORDS -fcsSNG AND BLANK 
, FILLED OUT TO THE RIGHT? IF NECESSARY 

. IN THE WRITE IT RLL OUT RT ONCE MODE THE NUMBER OF IMRGES TO 
BE WRITTEN MUST BE PASSED TO THIS ROUTINE 

I r CONTRACTORS SIGMA CORP 

■ i i ! “' ' 

! AUTHOR: WALTER N COLQUITT 

. DATE: SPRING 1875 



FORTRAN LINKING SEQUENCE 

FIRST: S8USE $WR I TE ? UR-F I LE-NAME ? OR VIA NERTRN 
THEN IN THE EXECUTABLE CODE 

CALL WRTALL C EN^ ? •“ VN “ ? BUF? “-OF-CARDS> 

WHERE 

•EN'IS TO BE THE ELEMENT NAME 

-VN- WILL BE THE VERSION NAME? 0 IS THE SAME AS BLANKS 


NOTE THAT EN AND VN ARE TWO <2> WORD ITEMS 


FOR THE LI NE-RT-R-T I ME METHOD 
CALL START < ' EN ' ? "' VN - ' > 

CALL PUTCRD CBUF> 

AND FINALLY 
CALL FINIS 
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R 1 ? 1 1 


S<1> 

□CTRL 


STRRT* 


WRTflLL* 


+ 

0 

1 

LR? U 

LR?.XU 

R£.t-7 

DL 

R3 ? < 0 0 0 00 000000 0 

MLU 

R£?R3 

SSL 

R£ ? 3 

DSC 

R3 ? 6 

■■ 

JGD 

DSC 

R3? 36 

J 

♦□CTRL 

*<1> 

• j » 

LR? U 

RO? 1 

SR 

RO? SINGLE 


J 

■ ; 

TZ 

J, 

sz 


DL 

DS 

DL 
DS , 
SLJ 

TZ 

J 

SR 

LR 

SR. 


CRRDKNT 

*4*3 


SINGLE 

BUSY 

XllrSXil 

R3 


R l j ♦ 0 1* X 1 1 
r| ?PFIPKT+2 

Ri?*i?:m j 
Ri ?PFIPKT+6 
VERCHK 
SINGLE 

PFfI 

RO? IMRGERDR 
RO? ♦3»Xl 1 
RO? CRRDKNT 


Rl ? * — 3 


JLJ 


LR? U 


RO? ♦•£ ? X 1 1 
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HRRCHH 


! 


mi. 

i 


| 

t-i 



I; 

I 


I NXTLNE 


I 

| 


I 

! 


.-.1*511 



LH? *J 

RO?PFIPKT 

P 

PFWLS 

TZ 

m 

> : » 

J 

BRDPFIWL 

SR 

m 

j PFIPKT+-1 0 

LR?U 

R* 

:* ? LRBEL+'l 

SR 

R* 

3 ? FCTO +8 r ?H£ 

LR 

R*. 

3?LRBEL 

SR 

ROjFCTO+IO 

LR? U 

RO? FCTO 

LMJ 

1 XllrSDFOO 

LR» U 

- ! R( 

:*?fctd 

LMJ 

X11?SDFD 

J 

□UTERR — 

LX 

XU?SXU 

TZ 

S3 

NGLE 

J 

3 5 

XI 1 


R6?REGSRV 
Rq? IMRGERPR 
- R7?CRRDKNT 
JGD 

SR R6? FCTO+3 ? ? HS 


LR 

f 

Rl» <•- •-> 

LR 

?U 

R1 ? IMRGELENGTH 

lx r * xu 

RO?-l » 


IE ' 

R1 ? I MRGELENGTH—1 ? ♦fi 0 

LR 

? XU 

R1 ?-l 

SR 

i 

Rl?RO 

LR 

1 ? U 

RO? 1 it RO 

LS 

ISL 

RO? 24 

SR 

RO ? FCTO+1 0 

LR 

!T U 

RO?FCTO 1 " 

LMJ 

Xll?SDFO 

J 

J 

OUTERR 

LX 


XI l^SXl 1 

TZ 


; SINGLE 

J 


£ ? X 1 1 

RR?U 

R6? IMRGELENGTH 

JGD 

R7?NXTLNE 

LR 

j u 

RO? FCTO 

LM 

J 

XllfSDFOC 

J 


□UTERR 

LR 


RO? FCTO+5 

SR 


Ro?ri 

RNR 

RO? PFIPKT-M 0 

SR 


RO? PFIPKT+S)! ? H2 

LN 

?u 

RO? PFIPKT 

ER 


PFI$ 

TZ 


R£ 

J 


PFIBRD 


DS 

LR 

LR 

J r 


Rl?FCTD+5 


RETURN LX XM-.SX11 

j TNZ SINGLE 

! J $+3 

SZ SINGLE 

J 1 »XI1 

• 

BL R6.-.REGSRV 

•J 5? XI 1 


frUTCRD* TNZ SINGLE 

J rjOTRERDY 

SZ R3 


i • 

LRjU 

ROj+OjXI 1 


SR 

RO? FCT0+8.» >»Hc 


sx 

Xi t?sxi l 

1 !J. 

J 

NXTLNE+1 

FINISH 

sx 

XUjSXII 


TNZ 

SINGLE 


J 

NCJTRERDY 


J 

JGD'+'i 

VERCHK 

• 

+ 

0 

! • 

DJZ 

Rl!.^*-1 


LR 

83 r VERCHK 


SR* HE‘ 

RSjCHRRCHK 

• | j 

J 

S+E 

MCHRRCHK 

: ■■■■■■ 

LR j U 

R5. r 1 1 

J12 

SZ 

RO 


BL 

R3-.MRSK 


LDSL 

R 0 j 6 

! 

SSL 

R1 f 6 


LDSL 

R1 » 6 


DSC 

R3j-.R0 


JNB 

R4-. RSTBLKS 


JGD 

R5j J12 1 

. ‘ ■ 

J 

♦CHRRCHK 

RSTBLKS 

TE 9 U 

R 0 j 005 

j- ; - . . . . .. .. 

J 

NOTFINE 



RO 

1 

LDSL 

RO 9 6 

; 

SSL 

R1 

| 

LDSL 

Ri j 6 

. ] : 

JGD 

R5 -. RSTBLKS 

f ; . . ; IV . - - :■ 

- j . . ... 

♦CHRRCHK 
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i 

3 . 


f ' * 

t NOTRERDY 

PRINT 

NOSTART 


f 

ER 

ERR* 


l Mf'GO 

•'CRN"' "T 

•" " PUT CRD •" 

OR "FINIS"' ' UNLESS START HRS BEEN CBLLEB"' 

NOS TART • 

PCW 

MS GO 


' B(JSV 

PRINT 

NOTBOTH 


t- ! 

ER 

ERR* 

i . . - 

MSS1 

"CRN"' " T 

DO WRTRLL 

IF LINE-BT-B-TIME IS OPEN" 

li NOTBOTH 

PCW 

MSG1 


: BRDPFIWL 

• 



l: ■ ■ ■ '/ ■ 

SLJ 

□CTRL 


* . 


- 

DS BSjSTBT 

i , - - - 1 

PRINT 

NOOPEN 


£}' i 

ER 

ERR* 



MSG 2 

'' CRN ' "T 

access file;;f 

.N. •"••' *WR I TE"'"' ATTACHED?"' 

STBT 

RES 

5 | 

i 


NODPEN 

PCW: 

MSG2 


OlilTERR 

PRINT 

IOERR 



ER 

ERR* 


MSG3 

"'FATAL I 

•••"□ ERROR HRS 

□CCURED-ABORT I NG * 

IOERR 

PCW 

MSG3 


PFIBBD 





SLJ 

□CTRL 

1 


DS 

R 3> STRTUS 



PRINT 

PFINFG 



J 

RETURN 


MSG 4 

"PFI* <NAME TO TOO FBI LED-CONT INU I NG-STRTUS WAS 

STATUS 

RES 

2 

■ 1 ' 

PFflNFG 

PCW 

MSG4 


NOTFINE 

PRINT 

BRDNRME 


! 

ER 

ERR* 


MSGS 

"ILLEGAL 

CHRRRCTER IN 

R NAME"' 

BBDNRME 

PCW 

MSGS 



END 




BATCHR 


This multiple key sort is Batcher's sort from Kunth's Volume 
III. The calling sequence is; 

CALL BATCHR ( DATA , LNG , NUM, KEY , KEYLNG) 

DATA A 2-D array of records to be sorted. 

LNG The length (in words) of each record. 

NUM The number of records in the array. 

Note this means that DATA is dimensioned as follows: 

DIMENSION DATA (LNG, NUM) . 

KEY A singlely dimensional array that contains from 

major to minor order the relative word positions 
of the keys within the record. Note that all 
values in the array KEY must be between 1 and 
LNG. 

KEYLNG The size (in words) of the array KEY. 

Examp.’ i: To sort an array of 100 records, each 13 words long 

when the major key is word #12 and the minor key is word #2, 
the following code is illustrative; 

KEY (1) =12 

KEY (2) =2 

CALL BATCHR ( DATA ,13,100, KEY ,2) 
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BATCHER (ADAGE VERSION) 


SUBROUTINE BftTCHR <D ATR > LNG r NUM r KEY > KEYLNG) 
IMPLICIT INTEGER <fi-Z> 

DIMENSION DRTR<LNG>NUM>* KEY <KEYLNG> 

IF YNUM. LT. £> RETURN 

IFYKEYLN6.LT. 1 .OR. KEYLNG.GT.LNG> RETURN 


: !. sr • 

S*1 

10 

S»S^2 

r- ! 

IFYS.LT 

$ " 1 

S=S ••••£ 

P=S 

; ; 20 

Q=S 

y : ■ ■ 

R-0 

y '■ ' 

D=P 

£ 30 

LIM=NUM 


DO 40 1=0* L IM 

IF < <1 . RND . P> . NE. R> GOTO 40 

IP1=I+1 

EXP=I+D+1 

DO 37 J= 1 » KEYLNG 

KEYH*KEY<J> 

I F YBRTfi 'CKEYH ■. I P 1 > -DATA YKEYH » EXP> > 4 0 » 37 * 38 

CONTINUE 

GOTO 40 

CONTINUE 

DO 39 J=1 jLNG 

TMP=DRTR CJj IP1> 

DRTR CJ> IPi> =DRTR <J . EXP> 

DRTR Y._i * Eh'P> =TMP 
CONTINUE 

Continue 

IF t'Q. EQ. P> GOTO 60 
D-Q-P 

Q=Q-'2 

R«P 

GOTO 3 0 
P=P.-£ 

IF <P. GT. 0> GOTO 20 
RETURN 
■ 'END ' 
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